home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / WAZENTER.PRG < prev   
Text File  |  1986-04-10  |  3KB  |  90 lines
  1. * WAZENTER PUTS DATA IN WAZ DATABASE VERSION 851203
  2. * SAME AS OBLASTEN.PRG BUT FOR 40 ZONES
  3. * BY JOE KASSER G3ZCZ (c) 1985
  4.  
  5. IF FILE (logbook)
  6.    SELECT primary
  7.    USE &logbook  INDEX &logbook
  8.  
  9.    SELECT SECONDARY
  10.    USE &waz
  11.  
  12.    STORE T TO cflag
  13.    STORE 0 TO zonen
  14.    STORE ' ' TO df
  15.    STORE '         ' TO callcard
  16.  
  17.    DO WHILE cflag
  18.       ERASE
  19.       @ 3,1 SAY ' '
  20.       ACCEPT    'Which Zone (0 to terminate) ?'  TO zonen
  21.       IF &zonen < wazm
  22.          IF &zonen = 0
  23.             STORE F TO cflag
  24.          ELSE
  25.             SELECT SECONDARY
  26.             * GO DIRECTLY TO RECORD
  27.             GOTO &zonen
  28.             @ 8,1 SAY ' '
  29.             IF dcall = ' '
  30.                ? 'Zone ',&zonen,' is not worked'
  31.             ELSE
  32.                DISP
  33.             ENDIF
  34.             @ 10,1 SAY 'Do you want to update the entry (Y/N) ?'
  35.             @ 10,40 GET df
  36.             READ
  37.             IF df = 'Y'
  38.                STORE '         ' TO  callcard
  39.                SELECT PRIMARY
  40.                @ 12,1 SAY 'What is the call ? '
  41.                @ 12,21 GET callcard
  42.                READ
  43.                FIND &callcard
  44.                @ 14,1 SAY ' '
  45.                IF # = 0
  46.                   ? callcard,' is not in log'
  47.                ELSE
  48.                   STORE T TO qflag
  49.                   DO WHILE call = callcard .AND. qflag
  50.                      @ 20,1 SAY ' '
  51.                      DISP
  52.                      @ 22,2 SAY ' '
  53.                      ACCEPT 'This one (Y/N) ?' TO df
  54.                      IF df = 'Y'
  55.                         STORE F TO qflag
  56.                      ENDIF
  57.                      SKIP
  58.                   ENDDO
  59.                   IF qflag
  60.                      * DON'T update entry
  61.                   ELSE
  62.                      SKIP -1
  63.                      SELECT SECONDARY
  64.                      REPLACE dcall WITH call
  65.                      REPLACE ddate WITH date
  66.                      REPLACE dtime WITH time
  67.                      REPLACE dband WITH band
  68.                      REPLACE dmode WITH mode
  69.                      REPLACE dstate WITH qslrx
  70.                   ENDIF
  71.                ENDIF
  72.             ENDIF
  73.          ENDIF
  74.       ELSE
  75.          ? 'ERROR, THERE ARE ONLY 40 ZONES'
  76.          WAIT
  77.       ENDIF
  78.    ENDDO
  79.    SELECT PRIMARY
  80.    USE
  81.    SELECT SECONDARY
  82.    USE
  83. ELSE
  84.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  85. ENDIF
  86. RELEASE qflag,callcard,df,zonen,cflag
  87.   IF df = 'Y'
  88.                STORE '         ' TO  callcard
  89.                SELECT PRIMARY
  90.